1000 PRINTCHR$(142);"[147][158]";
1010 POKE53281,9:POKE53280,12
1020 PRINT" [157] [157] [157] [157]    [146]  [145][157] [145][157] [145][157] [145][157]    ";
1030 PRINT"[157][157][157]  [157][157][157]    [146]  [145][157] [145][157] [145][157] [145][157]    [157][157][157]  ";
1040 PRINT"[145][145]     [157][157][157] [157] [157] [157] ";
1050 PRINT" [145] [145] [145] [145] "
1060 PRINT"   [157][157][157] [157] [157] [157] [145][145]   [145][157] [145][157] [157][157][146][223][223][157][146][223][223]";
1070 PRINT" [145][157] [145][157] [145][157] [145][157] [145][157]";
1080 PRINT"     [157][157]  [157] [157][157][157][157][157]    [145][157][157][157][157] [145][157] [145][157] [145][157] [145][157]";
1090 PRINT" [157] [157] [157] [157] [145][145]   [145][145][157] [157] [157] [157] [157] ";
1100 PRINT"[145][145][157][145][145]     [157][157][157] [157] [157] [157] ";
1105 PRINT:PRINT:PRINT"";
1110 PRINT"     [157][157]  [157] [157][157][157][157][157]    [145][157][157][157][157] [145][157] [145][157] [145][157] [145][157]";
1120 PRINT"";
1130 PRINT" [145][157] [145][157] [145][157] [145][157]     [157] [157] [157] [157] [145][145][157][157][157][157]    ";
1140 PRINT"";
1150 PRINT" [145][157] [145][157] [145][157] [145][157]     [157] [157] [157] [157] [157][157][157][145][145][145][145] [157] [157] ";
1160 PRINT"";            
1170 PRINT" [145][157] [145][157] [145][157] [145][157]    ";
1180 PRINT"[157][157][157]  [157][157][157]    [146]";
1200 PRINT:PRINT:PRINT"[129]   INSPIRED BY A GAME BY TRUCK SMITH."
1210 PRINT"    COMPLETELY REVAMPED BY JIMMY W."
1300 POKE198,0:WAIT198,1:GETK$:POKE53281,11:POKE53280,14
1301 PRINT"[147]"
1400 PRINT"[147]  [212]HE RULES OF [158]LEFT/RIGHT GAME ARE"
1410 PRINT:PRINT"DECEPTIVELY SIMPLE:  [211]ELECT KEYS ON THE"
1420 PRINT:PRINT"KEYBOARD FOR YOUR LEFT AND RIGHT HANDS."
1430 PRINT:PRINT"[212]HEN, AT THE TONE, IF THE SMALL BLOCK"
1440 PRINT:PRINT"ON THE SCREEN HAS A BLACK BACKGROUND,"
1450 PRINT:PRINT"PRESS THE KEY CORRESPONDING TO THE SIDE"
1460 PRINT:PRINT"OF THE SCREEN WHOSE COLOR BAR MATCHES"
1470 PRINT:PRINT"THE COLOR OF THE BLOCK."
1480 PRINT:PRINT:PRINT"           [208]RESS SPACE BAR":POKE198,0:WAIT198,1:GETK$
1500 PRINT"[147]   [201]F THE BACKGROUND AROUND THE SMALL"
1510 PRINT:PRINT"BLOCK IS GREY, THEN PRESS THE KEY"
1520 PRINT:PRINT"CORRESPONDING TO THE COLOR BAR THAT"
1530 PRINT:PRINT"DOESN'T MATCH THE COLOR OF THE SMALL"
1540 PRINT:PRINT"BLOCK."
1550 PRINT:PRINT"  [217]OU GET ONE SECOND TO DECIDE WHICH"
1551 PRINT:PRINT"KEY TO PRESS, THEN THE CLOCK STARTS TO"
1552 PRINT:PRINT"COUNT UP.  [201]F IT REACHES 10 SECONDS,"
1553 PRINT:PRINT"YOU LOSE.  [201]F YOU EVER PRESS THE WRONG"
1554 PRINT:PRINT"KEY, YOU LOSE."
1560 PRINT:PRINT:PRINT"           [208]RESS SPACE BAR":POKE198,0:WAIT198,1:GETK$
1600 PRINT"[147] [208]RESS A KEY WITH YOUR [158]LEFT HAND."
1610 POKE198,0:WAIT198,1:GETKEY$(0)
1620 PRINT"[147] [208]RESS A KEY WITH YOUR RIGHT HAND."
1630 POKE198,0:WAIT198,1:GETKEY$(1)
1631 IFKEY$(0)<>KEY$(1)THEN1640
1632 GOSUB5900:PRINT"[147][200]EY! [196]EADBRAIN![160][160][217]OU PRESSED THE SAME"
1634 PRINT:PRINT"KEY FOR BOTH HANDS!  [215]ANT TO TRY AGAIN?"
1635 FORC9=1TO2444:NEXT
1636 GOSUB5900
1638 GOTO1600
1640 PRINT".........HERE GOES....."
1650 FORCC=1TO500:NEXT
2000 PRINT"[147]"
2100 POKE53281,14
2200 POKE53280,7
2300 DIMC$(16)
2400 TI$="000000":TS$=TI$
2600 GOSUB11300:REMINIT POSITION ARRAY
2700 GOSUB11900:REMINIT COLORS
2800 FORCX=1TO4096
2900 LC=INT(RND(TI)*8+1):POKE53280,LC+RND(TI)*2:RIGHT%=RND(TI)*2
3000 FORC9=1TO4:BK%(C9)=RND(TI)*2:NEXT
3100 BL=INT(RND(TI)*9)+1
3200 IFBL=5THENFORC9=2TO4:BK%(C9)=BK%(1):NEXT
3300 IFBL=2THENBK%(1)=BK%(3)
3400 IFBL=4THENBK%(1)=BK%(2)
3500 IFBL=6THENBK%(3)=BK%(4)
3600 IFBL=8THENBK%(2)=BK%(4)
3700 GOSUB9200:GOSUB10300:GOSUB4500
3800 GOSUB5700:REMSCORE
3900 GOSUB5900:REMSOUND
4000 GOSUB5100:REMTIME
4100 GOSUB6600:REMRIGHT/WRONG
4200 NEXTCX
4300 GOTO12500
4400 REM"DRAW BARS"
4500 PRINTC$(LC+(RIGHT%=1));
4600 PRINT"";SPC(3);"              ";
4700 PRINTC$(LC+1+(RIGHT%=1));
4800 PRINT"";SPC(23);"              ";
4900 RETURN
5000 REMKEYWAIT & COUNTDOWN
5100 TI$=TS$:K$=""
5200 GETK$:IFK$=KEY$(0)ORK$=KEY$(1)THEN5600
5300 GOSUB8000
5400 GOTO5200
5500 IFK$<>" "THEN5100
5600 TS$=TI$:RETURN
5700 PRINT"[146][211]CORE: ";SC;
5800 RETURN:REMFROM SCOREPRINT
5900 REM START OF ROUND SOUND
6000 POKE54296,0:POKE54296,15
6100 POKE54273,2:POKE54272,44
6200 POKE54277,7:POKE54278,249
6300 POKE54275,0:POKE54276,33
6400 POKE54276,32
6500 RETURN
6600 IFRIGHT%=0THENIFK$<>KEY$(BK%(BL%(BL)))THEN7000
6700 IFRIGHT%=1THENIFK$=KEY$(BK%(BL%(BL)))THEN7000
6800 SC=SC+1
6900 RETURN
7000 PRINT"[147] [217]OU LOOSE JOWELED TURKEY!"
7100 PRINT:PRINT"[217]OU DON'T EVEN KNOW YOUR LEFT FROM YOUR"
7200 PRINT:PRINT"RIGHT!.... [217]OUR FINAL SCORE WAS A"
7300 PRINT:PRINT"MERE "SC" OUT OF A POSSIBLE (TO"
7400 PRINT:PRINT"ANYONE WITH THE BRAINS OF A GNAT) SCORE"
7500 PRINT:PRINT"OF 4096."
7600 PRINT"............ [217]OU WANT TO PLAY AGAIN?"
7700 POKE198,0:WAIT198,1:GETK$
7800 IFK$<>"Y"THEN12400
7900 RUN
8000 PRINT"[146]"SPC(22)"[212]IME USED: "VAL(TI$);
8100 IFTI$>"000010"THEN8300
8200 RETURN:REMFROM TIME PRINT
8300 PRINT"[147][217]OU DEADBRAINED POKE!"
8400 PRINT:PRINT"[217]OUR TEN SECONDS OF INDECISION HAVE"
8500 PRINT:PRINT"COST YOU DEARLY.  [217]OUR FINAL SCORE IS"
8600 PRINT:PRINT"A MERE "SC" POINTS OUT OF A POSSIBLE"
8700 PRINT:PRINT"4096."
8800 PRINT:PRINT"  [196]O YOU WANT TO GIVE YOUR BRAIN A REST?"
8900 POKE198,0:WAIT198,1:GETK$
9000 IFK$="Y"THEN12400
9100 RUN
9200 FORC9=217TO242:POKEC9,PEEK(C9)OR128:NEXT
9300 PRINT"";:FORC=1TO11:PRINTSPC(20);BG$(BK%(3));"                    ";
9400 NEXT
9500 PRINT"";
9600 FORC=1TO11:PRINTSPC(20);BG$(BK%(4));"                    ";:NEXT
9700 FORC9=217TO242:POKEC9,PEEK(C9)OR128:NEXT
9800 PRINT"";:FORC=1TO11:PRINTBG$(BK%(1));"                    ":NEXT
9900 PRINT"";
10000 FORC=1TO11:PRINTBG$(BK%(2));"                    ":NEXT
10100 FORC9=217TO242:POKEC9,PEEK(C9)OR128:NEXT
10200 RETURN
10300 REMDRAW BOX
10400 GOSUB10100
10500 PRINTC$(LC+LR);
10600 D$=""
10700 PRINT"";LEFT$(D$,PO%(1,BL));      
10800 GOSUB10100
10900 FORI=0TO6
11000 PRINTSPC(PO%(0,BL))"         "
11100 NEXTI
11200 RETURN
11300 FORC9=1TO9:READPO%(0,C9):READPO%(1,C9):NEXT
11400 DATA5,2,15,2,25,2,5,7,15,7,25,7,5,12,15,12,25,12:REMHORIZ/VERT BLOCK POS'N
11500 BL%(1)=1:BL%(2)=1:BL%(3)=3
11600 BL%(4)=1:BL%(5)=1:BL%(6)=3
11700 BL%(7)=2:BL%(8)=2:BL%(9)=4
11800 RETURN
11900 REMCOLOR INITIALIZATION
12000 C$="[159][158][156][129][149][152][150]"
12100 FORC9=0TO15:C$(C9)=MID$(C$,C9+1,1):NEXT
12200 BG$(0)="[144]":BG$(1)="[155]"
12300 RETURN
12400 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
12405 POKE631,13:POKE632,13:POKE198,2:END
12500 PRINT"[147]  [217]OU CLOD!  [196]O YOU REALIZE YOU HAVE"
12600 PRINT:PRINT"OVER AN HOUR OF YOUR PRECIOUS TIME TO"
12700 PRINT:PRINT"WIN THIS STUPID GAME!?!?!"
12800 POKE198,0:WAIT198,1:GETK$
12900 IFK$<>"Y"THENRUN
13000 GOTO12400